Greatest Childrens Stories Ever Told/Greatest_Stories.iso/demos/funtown/demo.dir/00052_Script_Scripts 9

Text File | 1994-11-08 | 1KB | 49 lines

--òòò Scripts 7
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on activateChalkboard whichFrame, whichTextPict, whichMode
  if the number of cast ( whichTextPict & whichMode )=-1 then
    put "Hey! "& ( whichTextPict & whichMode ) &" is not a cast member."
    exit
  end if
  global CU
  if CU then exit
  puppetTransition 50,0,64
  go the frame
  if whichTextPict<>"" then
    activate 43,the number of cast ( whichTextPict & whichMode ),1,8,190,310,"","",""
    if not ( whichMode contains "òLearnò" ) then updateStage
    doSound ( whichTextPict )
  end if
  updateStage
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on weHaveAWinner
  global PAB, CU
  set CU = true
  set PAB = 1
  doWindow
end
-- ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
on ResetQuest
  global NQ, QL, WQ, CV, NS, mode
  cursor 4
  setGlobalVariables
  set the locH of Sprite 2 = -500
  go "pos0"
  when keyDown then checkKeyEvent the key, charToNum ( the key )
  delete item 1 to 5 of QL
  put QL
  if the number of items of QL < 5 then randomizeQuestions 5
  set WQ = 1
  set NS = 0
  set NQ = 5
  CheckRandomOrder
  repeat with x=2 to 31
    set the locV of sprite x=1000
  end repeat
  deactivate "2"
  reposition (CV)
  unloadCast
  cursor -1
end